home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / extensions / procs / _roundbox.amos / _roundbox.amosSourceCode
Encoding:
AMOS Source Code  |  2008-12-10  |  468 b   |  17 lines
  1. ROUNDBOX[10,10,50,50,5]
  2. ROUNDBOX[80,10,150,50,27]
  3. ROUNDBOX[180,50,250,100,90]
  4. ROUNDBOX[10,70,50,110,20]
  5. ROUNDBOX[90,70,60,150,5]
  6. ROUNDBOX[100,150,150,70,10]
  7.  
  8. Procedure ROUNDBOX[X1,Y1,X2,Y2,R]
  9.  Extension_22_06DE X1+R,Y1+R,R,R,3*90,4*90
  10.  Extension_22_06DE X2-R,Y2-R,R,R,1*90,2*90
  11.  Extension_22_06DE X1+R,Y2-R,R,R,2*90,3*90
  12.  Extension_22_06DE X2-R,Y1+R,R,R,4*90,1*90
  13. Draw X1+R,Y1 To X2-R,Y1
  14. Draw X1+R,Y2 To X2-R,Y2
  15. Draw X1,Y1+R To X1,Y2-R
  16. Draw X2,Y1+R To X2,Y2-R
  17. End Proc